CDUTIL 13/CDUTIL #13 Julio 1995.iso/windows/amipro3/macros.cmz/WINAPPS.SMM

INI File | 1992-11-18 | 4.2 KB | 413 lines

[ver]
    4
[sty]
    _default.sty
[files]
[charset]
    82
    ANSI (Windows, IBM CP 1252)
[revisions]
    0
[prn]
    PostScript Printer
[port]
    LPT1:
[lang]
    1
[desc]
    Men<\z>: cambia a otro programa en ejecuci<\s>n.
    Lotus Word Processing Division
    Beginner
    Menus, Active Apps
    AutoRun
    719604515
    31
    673578583
    187
    1
    0
    0
    0
    0
    Addmenuitem, Scan For Active Apps, Simple Arrays

    Peyton McManus



    0
[fopts]
    0
    1
    0
    0
[lnopts]
    2
    Body Text
    1
[docopts]
    5
    2
[GramStyle]

[tag]
    Est<\a>ndar
    12
    [fnt]
        Tms Rmn
        240
        0
        49152
    [algn]
        1
        1
        0
        0
        0
    [spc]
        17
        0
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        24
        1
        2
        ,
        .
        Pts
    Est<\a>ndar
    0
    0
[lay]
    1
    513
    [rght]
        15840
        12240
        1
        720
        1440
        1
        1800
        1440
        2
        1
        0
        1
        1
        2
        1
        720
        10800
        5
        1
        720
        1
        1440
        1
        2880
        1
        4320
        1
        5760
    [hrght]
    [lyfrm]
        1
        11200
        0
        0
        12240
        1800
        0
        1
        3
        1 0 0 0 0 0 0
        0
        0
        1
    [frmlay]
        1800
        12240
        1
        1440
        72
        1
        360
        1440
        0
        1
        0
        1
        1
        0
        1
        1440
        10800
        0
    [txt]

Peyton McManus

Winapps   <[>Updates menu with currently running Apps]

05/08/92

>
    [frght]
    [lyfrm]
        1
        13248
        0
        14400
        12240
        15840
        0
        1
        3
        1 0 0 0 0 0 0
        0
        0
        2
    [frmlay]
        15840
        12240
        1
        1440
        360
        1
        14472
        1440
        0
        1
        0
        1
        1
        0
        1
        1440
        10800
        0
    [txt]
>
[elay]
[l1]
    0
[pg]
    1
    46 0 12 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
[edoc]
@Function@<:#284,9025>Declare AppMenu()

@Function@<:#284,9025>

@Function@<:#284,9025>Function appmenu()

<:#284,9025>IF IsNewWave()

<:#284,9025>    Message("Macro no disponible si se ejecuta en HP NewWave.")

<:#284,9025>    Exit Function

<:#284,9025>ENDIF

<:#284,9025>Count=AppGetAppCount()

<:#284,9025>Barid=1

<:#284,9025>MenuName="&Aplicaciones"

<:#284,9025>Hourglass(on)

<:#284,9025>Deletemenu(Barid, MenuName)

<:#284,9025>AddMenu(Barid, MenuName)

<:#284,9025>Dim Apps(Count)

<:#284,9025>AppGetAppNames(&Apps)

<:#284,9025>Mac=GetRunningMacroFile$()

<:#284,9025>If Count<;>25

<:#284,9025>    Count=25

<:#284,9025>Endif

<:#284,9025>OpenBracket = Chr$(91)

<:#284,9025>For i=1 to Count

<:#284,9025>    ap = apps(I)

<:#284,9025>    Ap=Strfield$(ap,1,OpenBracket)

<:#284,9025>    If Ap !="Srvr"

<:#284,9025>        rap = """{ap}"""

<:#284,9025>        AddMenuItem(BarId,MenuName,"&{ap}","{mac}!rest({rap})")

<:#284,9025>    Endif

<:#284,9025>Next

<:#284,9025>AddMenuItem(1,Menuname,"-","")

addmenuitem(1, menuname, "A&ctualizar", "{mac}!update")

AddMenuItem(1,Menuname,"&Salir","{mac}!quit")

<:#284,9025>Hourglass(off)

<:#284,9025>End Function

<:#284,9025>

@Function@<:#284,9025>function update()

<:#284,9025>appmenu()

<:#284,9025>end function

<:#284,9025>

@Function@<:#284,9025>function rest(ap)

<:#284,9025>apprestore(ap)

<:#284,9025>activateapp(ap)

<:#284,9025>end function

<:#284,9025>

@Function@<:#284,9025>Function Quit()

Deletemenu(1,"&Aplicaciones")

<:#284,9025>End Function

>

[Embedded]
00003373
>
[macsum] 4
appmenu 0 0 10 2
update 661 0 1 34
rest 696 1 1 38
Quit 743 0 1 43
[macse]
14 appmenu
0 1317
13
11 00000105
0 3 "Macro no disponible si se ejecuta en HP NewWave."
6 0
15
9
0 1033
13
8 1
5 1
8 2
7 "&Aplicaciones"
8 3
0 296 1
0 521 "{2}" "{3}"
0 515 "{2}" "{3}"
6 1
21 4 [X]
0 1034 &4
0 802
13
8 5
6 1
5 25
18 3
11 00000286
5 25
8 1
0 39 91
13
8 6
5 1
8 7
6 1
6 7
18 2
12 00000389
10 00000541
5 1
6 7
3 0
8 7
10 00000314
6 7
22 4
8 8
0 20 "{8}" 1 "{6}"
13
8 8
6 8
7 "Srvr"
18 1
11 00000528
7 """{8}"""
8 9
0 516 "{2}" "{3}" "&{8}" "{5}!rest({9})"
10 00000356
0 516 1 "{3}" "-" ""
0 516 1 "{3}" "A&ctualizar" "{5}!update"
0 516 1 "{3}" "&Salir" "{5}!quit"
0 296 0
6 0
15
9
14 update
16 appmenu
6 0
15
9
14 rest
0 1031 "{0}"
0 38 "{0}"
6 1
15
9
14 Quit
0 521 1 "&Aplicaciones"
6 0
15
9
00003398